10 IFA=0THENDV=PEEK(186):IFDV<8THENDV=8
100 IFA=0THENA=1:LOAD"READER C800",DV,1
110 IFA=1THENA=2:LOAD"I-MENU $C000",DV,1
120 FI$="T.INSTANT MENU":MENU=49152:POKE51253,DV
130 PRINT"[147]":GOSUB140:GOTO290
140 POKE53280,0:POKE53281,0:IFFTHENRETURN
150 POKE214,10:PRINT"[145]";
160 FORI=1TO13:PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:NEXT:PRINT""
170 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
180 POKE214,12:PRINT"[145]"TAB(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
190 FORI=1TO7:PRINTTAB(4)"[155]                                [151][146][223]":NEXT
200 PRINTTAB(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][146][223]"
210 PRINT"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
220 POKE214,14:PRINT"[145][155]";
230 FORI=1TO5:READA$:GOSUB240:NEXT:GOTO250
240 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
250 :RETURN
260 DATA"[201] [206] [211] [212] [193] [206][160][212] [160][160][205] [197][160][206] [213]  [160][214] 1","BY [210]ICK [206]ASH
270 [131]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #82","(null)UBSCRIPTIONS 1-800-831-2694"
280 [131]"LENOPYRIGHT (LEN) 1991 (null)OFTDISK"
290 A$(1)[178]" 1. (null)EAD IT   "
300 A$(2)[178]" 2. (null)(null)(null) IT    "
310 A$(3)[178]" 3. (null)(null)ATNSTR$(null)(null)ATN(null)  "
320 A$(4)[178]" 1. (null)AMPLE RIGHT$TEM       "
330 A$(5)[178]" 2. (null)AMPLE RIGHT$TEM       "
340 A$(6)[178]" 3. (null)AMPLE RIGHT$TEM       "
350 A$(7)[178]" 4. (null)AMPLE RIGHT$TEM       "
360 A$(8)[178]" 5. (null)AMPLE RIGHT$TEM       "
370 A$(9)[178]" 6. (null)(null)VAL(null)RIGHT$(null)(null)(null)CLOSE(null)VAL(null)(null)     "
380 A$(10)[178]" 7. (null)RIGHT$(null)CHR$(null)VALCLOSE(null)(null)ATNLENVALSTR$CLOSE(null)VAL(null)(null)"
390 [151]214,24:[153]"ON OPEN(null)SE LEN(null)(null)(null) (null)(null)/STR$(null)(null)(null)OPEN AND (null)VAL(null)(null)(null)(null)OPEN TO SELECT"
400 [158]49152,3[170]64,15,2,64[170]4,1,3,A$(1),A$(2),A$(3):[161]A$
410 [145][197](A$)[137]420,510,440
420 [158]51200,FI$,"RIGHT$CLOSE(null)CLOSE(null)CLOSE(null)CLOSEATNCLOSE(null)CLOSE(null) CLOSE (null) VAL (null) (null)CLOSE(null)":FI$[178]"":[137]400
430 [153]"LOAD":[128]
440 [129]I[178]0[164]9:[151]781,I:[158]59903:[130]:[151]781,24:[158]59903
450 A$[178]"HELLO CONNECT":[159]15,8,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15
460 [139]ER[179][177]63[167][153]"LOAD":[128]
470 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD"
480 [153]"LOAD"Q$A$Q$",8"
490 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]
500 [143] DEMO
510 [158]MENU,7,4,8,64[170]6,1,7,A$(4),A$(5),A$(6),A$(7),A$(8),A$(9),A$(10)
520 [161]A$:[145][197](A$)[137]510,510,510,510,510,400,530
530 [158]MENU,6,14,16,14,13,3,A$(4),A$(5),A$(6),A$(7),A$(8),A$(9)
540 [161]A$:[145][197](A$)[137]530,530,530,530,530,510